home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / comm / cnet / cnet_mil.lha / milles / CNetMilles.Show < prev    next >
Text File  |  1997-02-01  |  2KB  |  39 lines
  1. /**************************************************************************\
  2.      $VER: Mille Bornes Show, v1.16 (2-Feb-97) by Dotoran of Frontiers!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. a=sourceline(2);parse var a . . . ", "ver" ("vdate")" .;a=random(,,time("s"))
  6. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;mg=maygetchar
  7. parse source . . fp .;path=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
  8. bar="cd"copies(d2c(196),79) ; c=0
  9.  
  10. START: ; c=c+1 ; if c>4 then signal START2
  11.   a1=random(1,2) ; a2=random(2,5) ; if a2=5 then a2=6
  12.   if ~exists(path"CNetMilles.Hi"word("Hands Games",a1)a2) then signal START
  13.   call open(f1,path"CNetMilles.Hi"word("Hands Games",a1)a2,"r")
  14.     do i=1 to 10;y=readln(f1);parse var y score.i" "y;scoreT.i=strip(y);end i
  15.   call close(f1) ; signal SHOWSCORES
  16. START2: ; score.=0;scoreT.="700 00-Jan-00 00:00AM No One Yet"
  17. SHOWSCORES: ; t="H A N D" ; if a1=2 then t="G A M E"
  18.   tr "f1@4z4ce  CNet Mille Bornes, "ver" last updated "vdate" by Dotoran of Frontiers BBS!  z0"
  19.   tr bar;tr "CcfC u r r e n t  r1c"substr("a9",a1,1)"  H I G H    "t"  r0  cfS c o r e sn1"
  20.   tr "Cc7For cd"a2"-Player c7Gamesn1"
  21.   tr "CcfPoints  caMiles  cbDate/Time Achieved  cePlayer Name(s)";tr bar
  22.   do i=1 to 10;se "cf"right(score.i,16);parse var scoreT.i v1 v2 v3 v4
  23.     tr "ca"right(v1,7)"  cb"v2" "right(v3,8)" ce"v4;end i;tr bar
  24.   se "n1Cc7Would cbYOU c7like to try getting caYOUR c7name on the ceabove c7list? cf[ceNocf]ce: "
  25.   gc;a=result;call CHECK;if a~="Y" then do;tr "No";exit;end;else tr "Yesn1"
  26.   se "c7Now celoading cbMille Bornesc7...#0"path"CNetMilles}"
  27.  
  28. exit
  29. CHECK:;if ARG() & ARG(1)~='###PANIC' then return ARG(1)
  30.   getcarrier;if result='TRUE' then if ARG() then return ARG(1);else return
  31.   logentry 'Lost Carrier!!';bufferflush;exit
  32. SYNTAX:;ERROR:;IOERR:;e1="n1 Error: "rc" ("errortext(rc)")"
  33.   e2="  Line: "left(sigl,4)"File:";c="`"fp", "ver"'";e2=e2" "c;tr e1;tr e2
  34.   logentry e1;logentry e2;e=strip(translate(sourceline(sigl),"\{",""))
  35.   do while e~="";e3="Source: "left(e,37);tr e3;logentry e3;e=substr(e,38);end
  36.   bufferflush
  37. /**************************************************************************\
  38. \****************************************** Frontiers BBS (716)/823-9892 **/
  39.